/*
 * Change Logs:
 * Date           Author       Notes
 * 2022-01-28     tyustli          first implementation
 */

// 设立尾指针的单循环链表

#include "tail_link.h"

// 操作结果：构造一个空的线性表 L
void InitList(LinkList *L)
{
    *L = (LinkList)malloc(sizeof(struct LNode)); // 产生尾结点，并使 L 指向此头结点
    if (!(*L))                                   // 存储分配失败
        exit(-1);
    (*L)->next = *L; // 指针域指向头结点
}

// 操作结果：销毁线性表L
void DestroyList(LinkList *L)
{
    LinkList q, p = (*L)->next; // p 指向头结点
    while (p != (*L))           // 没到表尾
    {
        q = p->next;
        free(p);
        p = q;
    }
    free(*L);
    *L = NULL;
}

// 初始条件：线性表 L 已存在。操作结果：将 L 重置为空表
void ClearList(LinkList *L) // 改变L
{
    LinkList p, q;
    *L = (*L)->next;  // L指向头结点
    p = (*L)->next;   // p指向第一个结点 首元结点
    while (p != (*L)) // 没到表尾
    {
        q = p->next;
        free(p);
        p = q;
    }
    (*L)->next = *L; // 头结点指针域指向自身
}

// 初始条件：线性表 L 已存在。操作结果：若 L 为空表，则返回 TRUE，否则返回 FALSE
Status ListEmpty(LinkList L)
{
    if (L->next == L) // 空
        return TRUE;
    else
        return FALSE;
}

int ListLength(LinkList L)
{ // 初始条件：L已存在。操作结果：返回L中数据元素个数
    int i = 0;
    LinkList p = L->next; // p指向头结点
    while (p != L)        // 没到表尾
    {
        i++;
        p = p->next;
    }

    return i;
}

// 当第i个元素存在时，其值赋给e并返回OK，否则返回ERROR
Status GetElem(LinkList L, int i, ElemType *e)
{
    int j = 1;                       // 初始化，j 为计数器
    LinkList p = L->next->next;      // p 指向第一个结点 首元结点
    if (i <= 0 || i > ListLength(L)) // 第 i 个元素不存在
        return ERROR;

    while (j < i)
    { // 顺指针向后查找，直到p指向第i个元素
        p = p->next;
        j++;
    }
    *e = p->data; // 取第i个元素

    return OK;
}

// 初始条件：线性表L已存在，compare()是数据元素判定函数
// 操作结果：返回L中第1个与e满足关系compare()的数据元素的位序。
// 若这样的数据元素不存在，则返回值为0
int LocateElem(LinkList L, ElemType e, Status (*compare)(ElemType, ElemType))
{
    int i = 0;
    LinkList p = L->next->next; // p指向第一个结点 首元结点
    while (p != L->next)
    {
        i++;
        if (compare(p->data, e)) // 满足关系
            return i;
        p = p->next;
    }
    return 0;
}

// 初始条件：线性表L已存在
// 操作结果：若cur_e是L的数据元素，且不是第一个，则用pre_e返回它的前驱，
// 否则操作失败，pre_e无定义
Status PriorElem(LinkList L, ElemType cur_e, ElemType *pre_e)
{
    LinkList q, p = L->next->next; // p指向第一个结点
    q = p->next;
    while (q != L->next) // p没到表尾
    {
        if (q->data == cur_e)
        {
            *pre_e = p->data;
            return TRUE;
        }
        p = q;
        q = q->next;
    }
    return FALSE; // 操作失败
}

// 初始条件：线性表L已存在
// 操作结果：若cur_e是L的数据元素，且不是最后一个，则用next_e返回它的后继，
// 否则操作失败，next_e无定义
Status NextElem(LinkList L, ElemType cur_e, ElemType *next_e)
{
    LinkList p = L->next->next; // p指向第一个结点
    while (p != L)              // p没到表尾
    {
        if (p->data == cur_e)
        {
            *next_e = p->next->data;
            return TRUE;
        }
        p = p->next;
    }
    return FALSE; // 操作失败
}

Status ListInsert(LinkList *L, int i, ElemType e) // 改变L
{                                                 // 在L的第i个位置之前插入元素e
    LinkList p = (*L)->next, s;                   // p指向头结点
    int j = 0;
    if (i <= 0 || i > ListLength(*L) + 1) // 无法在第i个元素之前插入
        return ERROR;
    while (j < i - 1) // 寻找第i-1个结点
    {
        p = p->next;
        j++;
    }
    s = (LinkList)malloc(sizeof(struct LNode)); // 生成新结点
    s->data = e;                                // 插入L中
    s->next = p->next;
    p->next = s;
    if (p == *L) // 改变尾结点
        *L = s;
    return OK;
}

Status ListDelete(LinkList *L, int i, ElemType *e) // 改变L
{                                                  // 删除L的第i个元素，并由e返回其值
    LinkList p = (*L)->next, q;                    // p指向头结点
    int j = 0;
    if (i <= 0 || i > ListLength(*L)) // 第i个元素不存在
        return ERROR;
    while (j < i - 1) // 寻找第i-1个结点
    {
        p = p->next;
        j++;
    }
    q = p->next; // q指向待删除结点
    p->next = q->next;
    *e = q->data;
    if (*L == q) // 删除的是表尾元素
        *L = p;
    free(q); // 释放待删除结点
    return OK;
}

// 初始条件：L已存在。操作结果：依次对L的每个数据元素调用函数vi()
void ListTraverse(LinkList L, void (*vi)(ElemType))
{
    LinkList p = L->next->next; // p指向首元结点
    while (p != L->next)        // p不指向头结点
    {
        vi(p->data);
        p = p->next;
    }
    printf("\n");
}

/************************* end of file **************************/
